home *** CD-ROM | disk | FTP | other *** search
/ Spanish Scene 1 / SpanishScene1.iso / spanish pack n°1 by llfb / --llfb-- / docs / docs27-2.dms / docs27-2.adf / Programas / Blizz1220Repair2.0.LZX / BlizzRepair2.s < prev   
Text File  |  2010-02-07  |  691b  |  42 lines
  1.  
  2.     incdir    'include:'
  3.     include    'libs/exec.i'
  4.     include    'exec/exec.i'
  5.  
  6.     movem.l    d1-d7/a0-a6,-(a7)
  7.     move.l    4,a6
  8.     move.l    #8,d0
  9.     move.l    #MEMF_FAST,d1
  10.     jsr    AllocMem(a6)
  11.     tst.l    d0
  12.     beq.s    reset
  13.     move.l    d0,a1
  14.     move.l    #8,d0
  15.     jsr    FreeMem(a6)
  16. end    movem.l    (a7)+,d1-d7/a0-a6
  17.     moveq    #0,d0
  18.     rts
  19.  
  20. reset    move.l    #32,d0
  21.     move.l    #MEMF_PUBLIC+MEMF_CLEAR,d1
  22.     jsr    AllocMem(a6)
  23.     tst.l    d0
  24.     beq.s    .exit
  25.     move.l    d0,a0
  26.     move.l    d0,a1
  27.     move.w    #20,d7
  28.     lea    nameascii,a2
  29. .loop    move.b    (a2)+,(a0)+
  30.     dbra    d7,.loop
  31.     move.l    #$400000,d0
  32.     move.l    #MEMF_PUBLIC+MEMF_FAST+MEMF_24BITDMA,d1
  33.     move.l    #10,d2
  34.     lea    $200000,a0
  35.     jsr    AddMemList(a6)
  36. .aa    move.w    $dff006,$dff180
  37.     bra.s    .aa
  38. .exit    bra.s    end
  39.  
  40. nameascii
  41.     dc.b    'personal added memory',0
  42.